Month.cls

Language: Visual Basic Class
Last Modified: 2020-06-27 1:58:30 PM UTC
File Size: 657 bytes

http://www.penguinstew.ca/example/ExcelSQLExport/Month.cls

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

END

Attribute VB_Name = "Month"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = False

Attribute VB_Exposed = False

Public MonthId As Integer

Public MonthDate As Date

Public StartCheuqing As Double

Public StartSavings As Double

Public startCash As Double

Public Function ToSQL() As String

ToSQL = "INSERT INTO [Months]([MonthId],[Date],[StartChequing],[StartSavings],[StartCash]) VALUES (" & Me.MonthId & ",'" & Format(Me.MonthDate, "yyyy-mm-dd") & "'," & Me.StartCheuqing & "," & Me.StartSavings & "," & Me.startCash & ")"

End Function